FM Towns: Free Software Collection 11/FM Towns Free Software Collection 11.iso/t_os/tool/mmlc/source/m2libm.c

C/C++ Source or Header | 1995-06-17 | 4.6 KB | 279 lines

/* ------------------------------------------------------------------
                        MML compiler [M2]
               programmed by S.Yamamoto (SHINNOSUKE)
                m2libm.c  --  other function source
------------------------------------------------------------------ */

#include    <stdio.h>
#include    <stdlib.h>
#include    <ctype.h>
#include    <string.h>
#include    <limits.h>
#include    <math.h>
#include    "m2.h"

#define    SUCCSESS    0
#define    FAILURE    (-1)
#define    TRUE    1
#define    FALSE    0
#define    ERR    (-1)
#define    YES    1
#define    NO    0

char    *expMsg = "EXPRESSION";
char    *expBuf;
int    ch;

/* 四則演算処理 */

void    readch( void )
{
    ch = *expBuf;
    expBuf++;
    return;
}

int    number( void )
{
    int    x;
    int    dummy;
    int    sign;
    int    radix = 10;

    if ( ch == '+' || ch == '-' ) {
        sign = ch;
        readch();
    }
    if (! isdigit(ch)) errMsg(MSG_syntax,expMsg);
    if (ch == '0') {
        if(toupper(*expBuf) == 'X')    radix=16;
        if(toupper(*expBuf) == 'B')    radix=2;
        if(toupper(*expBuf) == 'O')    radix=8;
        if(radix != 10)    expBuf++;
    }
    x = ch - '0';
    for(;;) {
        readch();
        ch=toupper(ch);
        if (isdigit(ch) == 0 && ch<'A' && ch>'F')    break;

        dummy=(ch>='A'&&ch<='F')?ch-'A'+10:ch-'0';
        if(dummy<0 || dummy>=radix)    break;
        x=dummy+x*radix;
    }

    if (sign == '-') return -x;  else return x;
}

int    factor( void )
{
    int    x;

    if (ch != '(') return number();
    readch();
    x = expression();
    if (ch != ')')
        errMsg(MSG_syntax,expMsg);
    readch();
    return x;
}

int    term( void )
{
    int    x;
    int    y;

    x = factor();
    for ( ; ; )
        if (ch == '*') {
            readch();  x *= factor();
        } else if (ch == '/') {
            readch();  y = factor();
            if (y == 0) errMsg(MSG_freerr,"Divide by zero(EXPRESSION)");
            x /= y;
        } else if (ch == '%') {
            readch();  x %= factor();
        } else break;
    return x;
}

int    expression( void )
{
    int    x;

    x = term();
    for ( ; ; )
        if (ch == '+') {
            readch();  x += term();
        } else if (ch == '-') {
            readch();  x -= term();
        } else break;
    return x;
}

int    calc( char **str )
{
    char    *p;
    char    buf[256];

    int    n = 0;
    int    x;
    int    dummy = 0;

    p=*str;
    if(*p!='(')    errMsg(MSG_syntax,expMsg);
    p++;
    for(;;){
        p=skipSpace(p);
        if(*p=='\0')    errMsg(MSG_syntax,expMsg);
        if(*p=='(')    dummy++;
        if(*p==')')    dummy--;
        if(dummy<0) {
            buf[n]='\0';
            break;
        }
        buf[n]=*p;
        p++;
        n++;
        if(n>255)    errMsg(MSG_syntax,expMsg);
    }
    p++;
    *str=p;

    expBuf=&buf[0];

    readch();  x = expression();
    if (ch != '\0') errMsg(MSG_syntax,expMsg);
    return(x);
}

/* その他 */

int    comSearch( char *c[],char *s )    /* コマンド検索 */
{
    int    n = 0;
    int    ret = ERR;

    while( c[n][0] != '\0' ) {
        if( strncmp( s,c[n],strlen( c[n] )) == 0 ) {
            ret = n;
            break;
        }
        n++;
    }
    return( ret );
}

char    *skipSpace( char *s )    /* スペースを飛ばす */
{
    while( *s == ' ' )
        s++;
    return( s );
}

void    skipLine( char **s )    /* 空行を飛ばす */
    /* [EOF]だった場合はＮＵＬＬを指しているポインターを返す */
{
    char    *p;
    char    *q;

    p = *s;
    p = skipSpace( p );

    for(;;) {
        q = p;
        if( *p == '\0' ) {
            if(( p = Pre_fgets()) == NULL ) {
                p = q;
                break;    /* [EOF] */
            }
            p = skipSpace( p );
        }
        if( *p != '\0' )    break;
    }
    *s = p;
}

int    power( int x ,int y ) /* ｉｎｔ型の累乗 */
{
    int    i;
    long    ret = x;

    if ( y == 0 )
        return(1);
    for( i=1;i<y;i++ )
        ret = ret*x;
    return( (int)ret );
}

double    sine( double xx ) /* サイン（度からラジアンに変換）*/
{
    double    x = ((xx)/180*3.14159265358979323846);    /* deg>rad */
    return( sin(x) );
}

int    instr( const char *s ,int c ) /* １文字検索 */
{
    int    i;
    int    l;
    int    ret = ERR;

    l = strlen( s );
    for( i=0;i<l;i++ ) {
        if( *(s+i) == c ) {
            ret = i;
            break;
        }
    }
    return( ret );
}

int    strToInt( char **p ,int min ,int max ,int d ,char *m2 )
    /* アスキー文字からｉｎｔ型への変換 */
{
    char    *msg = "(param)";
    char    *s;
    int    pm = 1;    /* plus or minas */
    int    flags = NO;
    int    dummy;
    long    int    dat = 0;
    long    int    da2 = 0;

    if ( m2 != NULL )    msg = m2;
    s = skipSpace( *p );

    switch( *s ) {
        case '+':
            s++;
            break;
        case '-':
            s++;
            pm = -1;
            break;
        case '?':
            s++;
            dat = (long)calc( &s );
            goto    Point;
    }

    for(;;) {
        dummy = toupper( *s );
        dummy -= '0';
        if( dummy < 0 || dummy > 9 )    break;
        dat = dummy + dat*10;
        da2 = dat*pm;
        if( da2 > INT_MAX || da2 < INT_MIN )
            errMsg( MSG_illfnc ,msg );
        flags = YES;
        s++;
    }
    dat = dat*pm;
    if( flags == NO )
        dat = (long)d;
Point:
    if( dat < min || dat > max )
        errMsg( MSG_illfnc ,msg );
    *p = s;
    return( (int)dat );
}